(print_object): Escape a symbol like "2E10" too.

diff --git a/src/ChangeLog b/src/ChangeLog
index 37ce0c98ce4daf62ec54b446b09eedda6f33fe7e..2c33dc18d69ac6ee3ac037e293bd41c0efd45dee 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2009-10-15  Kenichi Handa  <handa@m17n.org>
+
+       * print.c (print_object): Escape a symbol like "2E10" too.
+
 2009-10-11  Adrian Robert  <Adrian.B.Robert@gmail.com>
        Cleanups and changes for 64-bit compile under Snow Leopard.  Based
        on suggestions by Erik Charlebois.

diff --git a/src/print.c b/src/print.c
index 7f526243346e2f170d40395d2442982f53362365..5eee386cab76931d7552ad0e3772c1386bdb60e8 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -1753,7 +1753,7 @@ print_object (obj, printcharfun, escapeflag)
          {
            while (p != end && ((*p >= '0' && *p <= '9')
                                /* Needed for \2e10.  */
-                               || *p == 'e'))
+                               || *p == 'e' || *p == 'E'))
              p++;
            confusing = (end == p);
          }